From: Henrik Enberg <henrik.enberg@telia.com>
Date: Wed, 25 Jan 2006 20:21:48 +0000 (+0000)
Subject: (rmail-output): Make sure headers are properly
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~8790^2~53
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=08165936b6c8070adf0dd6ee3a9af6b12f02496e;p=emacs.git

(rmail-output): Make sure headers are properly
hidden after output.  Avoid pointless with-current-buffer call.
---

diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el
index fa99880ff8e..db11cceae05 100644
--- a/lisp/mail/rmailout.el
+++ b/lisp/mail/rmailout.el
@@ -203,7 +203,8 @@ The optional fourth argument FROM-GNUS is set when called from GNUS."
 		      (insert msg-string)))))))
 	  (unless noattribute
 	    (when (equal major-mode 'rmail-mode)
-	      (rmail-set-attribute "filed" t)))
+	      (rmail-set-attribute "filed" t)
+	      (rmail-header-hide-headers)))
 	  (setq count (1- count))
 	  (unless from-gnus
 	    (let ((next-message-p
@@ -212,12 +213,9 @@ The optional fourth argument FROM-GNUS is set when called from GNUS."
 		     (when (> count 0)
 		       (rmail-next-undeleted-message 1))))
 		  (num-appended (- orig-count count)))
-	      (when (and next-message-p original-headers-p)
-		(rmail-toggle-header))
 	      (when (and (> count 0) (not next-message-p))
-		(error (with-current-buffer rmailbuf
-			 (format "Only %d message%s appended" num-appended
-				 (if (= num-appended 1) "" "s"))))
+		(error (format "Only %d message%s appended" num-appended
+			       (if (= num-appended 1) "" "s")))
 		(setq count 0)))))))))
 
 ;;;###autoload